home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasic_1.zip / BAS_LIST.EXE / HORRMUSI.BAS < prev    next >
BASIC Source File  |  1992-05-02  |  273b  |  21 lines
  1. CLS
  2. INPUT "low freq (hz)"; lotone
  3. PRINT
  4. INPUT "high freq"; hitone
  5. PRINT
  6. INPUT "duration in ticks"; duration
  7. PRINT
  8. PRINT "press any key to stop"
  9.  
  10.  
  11.  
  12. DO WHILE INKEY$ = ""
  13.   frequency = (hitone - lotone) * RND + lotone
  14.   SOUND frequency, duration
  15. LOOP
  16.  
  17.  
  18.  
  19.  
  20.  
  21.